%% Table: Summary of Counterfactual Specifications

%filename = '../../output/tables/mechanisms_summary.tex';    
filename = '../../output/tables/Table9.tex';    
delete(filename)
diary(filename)
diary on   

    fprintf('\\begin{tabular}{lccccc}'); fprintf('\n');
    fprintf('\\hline\\hline\\\\[-0.8em]'); fprintf('\n');
    fprintf(' & Baseline & $\\nu_v=\\infty$ & $\\nu_y=0$ & $\\nu_v=\\infty,\\nu_y=0$ & Homogenous network \\\\[0.2em]'); fprintf('\n');
    fprintf('  & (1) & (2) & (3) & (4) &(5) \\\\[0.2em]'); fprintf('\n');
    fprintf('\\hline\\\\[-0.8em]'); fprintf('\n');
    fprintf('Percentage changes \\\\[0.5em]');   
    fprintf('\\quad Average wage per worker (All) & %.2f & %.2f & %.2f & %.2f & %.2f \\\\[0.5em]', ...
        model1.ge_cf1.overall_wage_all, ...
        model2.ge_cf1.overall_wage_all, ...
        model3.ge_cf1.overall_wage_all, ...
        model4.ge_cf1.overall_wage_all, ...
        model5.ge_cf1.overall_wage_all); fprintf('\n');
    fprintf('\\quad Average wage per worker (Exporters) & %.2f & %.2f & %.2f & %.2f & %.2f \\\\[0.5em]', ...
        model1.ge_cf1.overall_wage_exp_ctn, ...
        model2.ge_cf1.overall_wage_exp_ctn, ...
        model3.ge_cf1.overall_wage_exp_ctn, ...
        model4.ge_cf1.overall_wage_exp_ctn, ...
        model5.ge_cf1.overall_wage_exp_ctn); fprintf('\n');
    fprintf('\\quad Average quality (All) & %.2f & %.2f & %.2f & %.2f & %.2f \\\\[0.5em]', ...
        model1.ge_cf1.overall_qlevel_all, ...
        model2.ge_cf1.overall_qlevel_all, ...
        model3.ge_cf1.overall_qlevel_all, ...
        model4.ge_cf1.overall_qlevel_all, ...
        model5.ge_cf1.overall_qlevel_all); fprintf('\n');
    fprintf('\\hline\\hline'); fprintf('\n');
    fprintf('\\end{tabular}'); fprintf('\n');
    
diary off    
    
   
    
%% Table: Model fit in one table

%filename = '../../output/tables/mechanisms_fit.tex';    
filename = '../../output/tables/TableA25.tex';    
delete(filename)
diary(filename)
diary on 

    fprintf('\\begin{tabular}{lccccc}'); fprintf('\n');
    fprintf('\\hline\\hline\\\\[-0.8em]'); fprintf('\n');  
    fprintf('& \\multicolumn{5}{c}{Quintiles of average wage per worker} \\\\[0.2em] \\cline{2-6}\\\\[-0.8em]'); fprintf('\n');   
    fprintf('& \\hspace{0.6cm}1\\hspace{0.6cm} & \\hspace{0.6cm}2\\hspace{0.6cm} & \\hspace{0.6cm}3\\hspace{0.6cm} & \\hspace{0.6cm}4\\hspace{0.6cm} & 5 (highest) \\\\[0.2em] \\hline\\\\[-0.8em]'); fprintf('\n');    
    
    fprintf('Mean number of suppliers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); 
    fprintf(' &%.1f', model1.data.mean_indegree_d*model1.data.N); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_v=\\infty$'); 
    fprintf(' &%.1f', model2.model.mean_indegree_d*model1.data.N ); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_y=0$'); 
    fprintf(' &%.1f', model3.model.mean_indegree_d*model1.data.N ); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_v=\\infty,\\nu_y=0$'); 
    fprintf(' &%.1f', model4.model.mean_indegree_d*model1.data.N ); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ homogenous network'); 
    fprintf(' &%.1f', model5.model.mean_indegree_d*model1.data.N ); fprintf('\\\\'); fprintf('\n');
    
    fprintf('Mean number of customers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); 
    fprintf(' &%.1f', model1.data.mean_outdegree_d*model1.data.N); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_v=\\infty$'); 
    fprintf(' &%.1f', model2.model.mean_outdegree_d*model1.data.N ); fprintf('\\\\'); fprintf('\n');   
    fprintf('\\quad Model w/ $\\nu_y=0$'); 
    fprintf(' &%.1f', model3.model.mean_outdegree_d*model1.data.N ); fprintf('\\\\'); fprintf('\n');   
    fprintf('\\quad Model w/ $\\nu_v=\\infty,\\nu_y=0$'); 
    fprintf(' &%.1f', model4.model.mean_outdegree_d*model1.data.N ); fprintf('\\\\'); fprintf('\n');   
    fprintf('\\quad Model w/ homogenous network'); 
    fprintf(' &%.1f', model5.model.mean_outdegree_d*model1.data.N ); fprintf('\\\\'); fprintf('\n');   
    
    fprintf('Share of total network sales & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); 
    fprintf(' &%.2f', model1.data.network_sales_share_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_v=\\infty$'); 
    fprintf(' &%.2f', model2.model.network_sales_share_d); fprintf('\\\\'); fprintf('\n'); 
    fprintf('\\quad Model w/ $\\nu_y=0$'); 
    fprintf(' &%.2f', model3.model.network_sales_share_d); fprintf('\\\\'); fprintf('\n'); 
    fprintf('\\quad Model w/ $\\nu_v=\\infty,\\nu_y=0$'); 
    fprintf(' &%.2f', model4.model.network_sales_share_d); fprintf('\\\\'); fprintf('\n'); 
    fprintf('\\quad Model w/ homogenous network'); 
    fprintf(' &%.2f', model5.model.network_sales_share_d); fprintf('\\\\'); fprintf('\n'); 
    
    fprintf('Standard deviation of log sales & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); 
    fprintf(' &%.2f', model1.data.sd_lnsales_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_v=\\infty$'); 
    fprintf(' &%.2f', sqrt(model2.model.var_lnsales_d)); fprintf('\\\\'); fprintf('\n');     
    fprintf('\\quad Model w/ $\\nu_y=0$'); 
    fprintf(' &%.2f', sqrt(model3.model.var_lnsales_d)); fprintf('\\\\'); fprintf('\n');     
    fprintf('\\quad Model w/ $\\nu_v=\\infty,\\nu_y=0$'); 
    fprintf(' &%.2f', sqrt(model4.model.var_lnsales_d)); fprintf('\\\\'); fprintf('\n');     
    fprintf('\\quad Model w/ homogenous network'); 
    fprintf(' &%.2f', sqrt(model5.model.var_lnsales_d)); fprintf('\\\\'); fprintf('\n');     
    
    fprintf('Fraction of exporters & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); 
    fprintf(' &%.2f', model1.data.exporter_share_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_v=\\infty$'); 
    fprintf(' &%.2f', model2.model.exporter_share_d); fprintf('\\\\'); fprintf('\n');    
    fprintf('\\quad Model w/ $\\nu_y=0$'); 
    fprintf(' &%.2f', model3.model.exporter_share_d); fprintf('\\\\'); fprintf('\n');    
    fprintf('\\quad Model w/ $\\nu_v=\\infty,\\nu_y=0$'); 
    fprintf(' &%.2f', model4.model.exporter_share_d); fprintf('\\\\'); fprintf('\n');    
    fprintf('\\quad Model w/ homogenous network'); 
    fprintf(' &%.2f', model5.model.exporter_share_d); fprintf('\\\\'); fprintf('\n');    
    
    fprintf('Export intensity of exporters & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data'); 
    fprintf(' &%.2f', model1.data.export_intensity_d); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_v=\\infty$'); 
    fprintf(' &%.2f', model2.model.export_intensity_d); fprintf('\\\\'); fprintf('\n');  
    fprintf('\\quad Model w/ $\\nu_y=0$'); 
    fprintf(' &%.2f', model3.model.export_intensity_d); fprintf('\\\\'); fprintf('\n');  
    fprintf('\\quad Model w/ $\\nu_v=\\infty,\\nu_y=0$'); 
    fprintf(' &%.2f', model4.model.export_intensity_d); fprintf('\\\\'); fprintf('\n');  
    fprintf('\\quad Model w/ homogenous network'); 
    fprintf(' &%.2f', model5.model.export_intensity_d); fprintf('\\\\'); fprintf('\n');  
    
    fprintf('Unweighted average log wage of suppliers  & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data &-'); 
    fprintf(' &%.2f', model1.data.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_v=\\infty$ &-'); 
    fprintf(' &%.2f', model2.model.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');   
    fprintf('\\quad Model w/ $\\nu_y=0$ &-'); 
    fprintf(' &%.2f', model3.model.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');   
    fprintf('\\quad Model w/ $\\nu_v=\\infty,\\nu_y=0$ &-'); 
    fprintf(' &%.2f', model4.model.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');   
    fprintf('\\quad Model w/ homogenous network &-'); 
    fprintf(' &%.2f', model5.model.avg_unwgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');   
    
    fprintf('Weighted average log wage of suppliers & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data &-'); 
    fprintf(' &%.2f', model1.data.avg_wgt_lnwageS_d4); fprintf('\\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_v=\\infty$ &-'); 
    fprintf(' &%.2f', model2.model.avg_wgt_lnwageS_d4); fprintf('\\\\[0.2em]'); fprintf('\n');    
    fprintf('\\quad Model w/ $\\nu_y=0$ &-'); 
    fprintf(' &%.2f', model3.model.avg_wgt_lnwageS_d4); fprintf('\\\\[0.2em]'); fprintf('\n');    
    fprintf('\\quad Model w/ $\\nu_v=\\infty,\\nu_y=0$ &-'); 
    fprintf(' &%.2f', model4.model.avg_wgt_lnwageS_d4); fprintf('\\\\[0.2em]'); fprintf('\n');    
    fprintf('\\quad Model w/ homogenous network &-'); 
    fprintf(' &%.2f', model5.model.avg_wgt_lnwageS_d4); fprintf('\\\\[0.2em]'); fprintf('\n'); 
    
    fprintf('\\hline\\\\[-0.8em]'); fprintf('\n');
    
    fprintf('Shift-share IV coefficient ($5\\%%$ export shock) & & & & & \\\\'); fprintf('\n');
    fprintf('\\quad Data & \\multicolumn{2}{c}{%.2f\\%%}', (model1.data.bartik_wage_response-1)*100); fprintf('& & & \\\\'); fprintf('\n');
    fprintf('\\quad Model w/ $\\nu_v=\\infty$ & \\multicolumn{2}{c}{%.2f\\%%}', (model2.bartik.avg_wage_response-1)*100); fprintf('& & & \\\\'); fprintf('\n');     
    fprintf('\\quad Model w/ $\\nu_y=0$ & \\multicolumn{2}{c}{%.2f\\%%}', (model3.bartik.avg_wage_response-1)*100); fprintf('& & & \\\\'); fprintf('\n');     
    fprintf('\\quad Model w/ $\\nu_v=\\infty,\\nu_y=0$ & \\multicolumn{2}{c}{%.2f\\%%}', (model4.bartik.avg_wage_response-1)*100); fprintf('& & & \\\\'); fprintf('\n');     
    fprintf('\\quad Model w/ homogenous network & \\multicolumn{2}{c}{%.2f\\%%}', (model5.bartik.avg_wage_response-1)*100); fprintf('& & & \\\\[0.2em]'); fprintf('\n');     
    fprintf('\\hline\\hline'); fprintf('\n');
    fprintf('\\end{tabular}'); fprintf('\n');   

    
diary off        
    
    
   
    